home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / CDROM / RexxCD / rexx / browsecd.rexx next >
OS/2 REXX Batch file  |  1996-06-24  |  530b  |  34 lines
  1. /*
  2.     Name        :    browsecd.rexx
  3.     Created        :    24/06/96
  4.     Last change    :    24/06/96
  5.  
  6.     Programmer    :    Urban Lindeskog
  7.     Organization    :    ProNotion SWDG
  8.  
  9.  
  10.     Plays the first 15 seconds of all tracks on a CD.
  11. */
  12. OPTIONS RESULTS
  13. ADDRESS REXXCD
  14.  
  15. if ~show('l','rexxsupport.library') then do
  16.     addlib('rexxsupport.library',0,-30,0)
  17. end
  18.  
  19.  
  20. GETATTR TRACK STEM TRACK
  21. do i=1 to TRACK.COUNT
  22.     'GETATTR TRACK NAME 'i' STEM TRACK'
  23.     say TRACK.ARTIST' :  'TRACK.TITLE
  24.  
  25.     PLAY i
  26.  
  27.     do d=0 to 15
  28.         call Delay(50)
  29.         say RIGHT('',d, '=')RIGHT('', 15, '08'X)
  30.         end
  31.     end
  32.  
  33. STOP
  34.